home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cslide1.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  74 lines
  1. 100 REM
  2. 110 REM "CSLIDE" SLIDESHOW PROGRAM
  3. 120 REM MARC MOORCROFT
  4. 130 REM 73 ST. GEORGE ST.  #380
  5. 140 REM TORONTO, ONTARIO   M5S 2E5
  6. 150 REM
  7. 160 REM BASED ON "COMPRESSOR" BY CHRIS
  8. 170 REM ZAMARA IN THE TRANSACTOR
  9. 180 REM VOLUME 6 ISSUE 4.
  10. 190 REM
  11. 200 POKE55,0:POKE56,88:POKE51,0:POKE52,88
  12. 210 FORT=22528TO22607:READA:POKET,A:NEXT
  13. 220 DIM F$(144)
  14. 230 PRINT"[147]   CSLIDESHOW[146] BY MARC MOORCROFT"
  15. 240 PRINT"INSERT PICTURES DISK AND HIT RETURN"
  16. 250 GETA$:IFA$<>CHR$(13)THEN250
  17. 260 PRINT"READING DIRECTORY"
  18. 270 OPEN1,8,0,"$0:JJ*"
  19. 280 GET#1,A$,A$,A$,A$,A$,A$:NF=0
  20. 290 GET#1,A$:IFA$<>""THEN290
  21. 300 GET#1,A$,A$,A$,A$
  22. 310 GET#1,A$:IFA$=" "ORA$=""THEN310
  23. 320 IFA$<>CHR$(34)THENCLOSE1:GOTO390
  24. 330 B$=""
  25. 340 GET#1,A$:IFA$=CHR$(34)THEN360
  26. 350 B$=B$+A$:GOTO340
  27. 360 B$=MID$(B$,3):F$(NF)=B$:PRINTB$:NF=NF+1
  28. 370 GET#1,A$:IFA$<>""THEN370
  29. 380 GOTO300
  30. 390 NF=NF-1
  31. 400 PRINT"[147]MOVE UP AND DOWN THE LIST WITH THE"
  32. 410 PRINT"CRSR[146] KEYS. HIT RETURN[146] TO SEE A"
  33. 420 PRINT"PICTURE. HIT Q[146] TO QUIT, AND"
  34. 430 PRINT"D[146] FOR ANOTHER DISK"
  35. 440 PRINT"PRESS RETURN[146] TO START"
  36. 450 FORT=1TO10:GETA$:NEXT
  37. 460 GETA$:IFA$<>CHR$(13)THEN460
  38. 470 PRINT"[147]";:DP=0:SP=0:FORT=0TO20:PRINTF$(T):NEXT
  39. 480 PRINT"";
  40. 490 PRINTTAB(14)"<--":PRINT"[145]";:GOTO500
  41. 500 GETA$:IFA$=""THEN500
  42. 510 IFA$=""THENGOSUB570:GOTO490
  43. 520 IFA$="[145]"THENGOSUB640:GOTO490
  44. 530 IFA$="D"THENCLR:GOTO220
  45. 540 IFA$=CHR$(13)THEN700
  46. 550 IFA$="Q"THENPRINT"[147]":END
  47. 560 GOTO500
  48. 570 PRINTTAB(14)"   ":PRINT"[145]";
  49. 580 IFDP=NFTHENRETURN
  50. 590 DP=DP+1
  51. 600 IFSP<20THENPRINT"";:SP=SP+1:RETURN
  52. 610 PRINT"[145][145][145]"F$(DP)
  53. 620 PRINT"                "
  54. 630 PRINT"";:RETURN
  55. 640 PRINTTAB(14)"   ":PRINT"[145]";
  56. 650 IFDP=0THENRETURN
  57. 660 DP=DP-1
  58. 670 IFSP>0THENPRINT"[145]";:SP=SP-1:RETURN
  59. 680 PRINT"[157][148]":POKE218,132:PRINT"                "
  60. 690 PRINT""F$(DP):PRINT"";:RETURN
  61. 700 OPEN8,8,0,"JJ"+F$(DP)
  62. 710 POKE56576,2:POKE53272,120:POKE53265,59
  63. 720 SYS22528
  64. 730 GETA$:IFA$=""THEN730
  65. 740 POKE53272,20:POKE53265,27:POKE56576,3
  66. 750 GOTO500
  67. 760 REM ***  UNCOMPRESSOR ML  ***
  68. 770 DATA162,8,32,198,255,32,228,255,133,251,32,228,255,133,252,32,183
  69. 780 DATA255,208,51,32,228,255,201,254,240,13,160,0,145,251,230,251,208
  70. 790 DATA2,230,252,24,144,231,32,228,255
  71. 800 DATA72,32,228,255,170,168,104,136,145,251,136,192,255,208,249,138,24
  72. 810 DATA101,251,133,251,144,2,230,252
  73. 820 DATA24,144,200,32,204,255,169,8,32,195,255,96
  74.